Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic.PowerPacks
Friend Class FRMabout
	Inherits System.Windows.Forms.Form
	Private Sub FRMabout_KeyUp(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp
		Dim KeyCode As Short = eventArgs.KeyCode
		Dim Shift As Short = eventArgs.KeyData \ &H10000
		If KeyCode = System.Windows.Forms.Keys.Escape Then Me.Close()
	End Sub
	
	Private Sub FRMabout_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		
		TXTfeatures.Text = " - Preferences" & vbCrLf & " - Remote database update" & vbCrLf & " - Save records to update"
		
		Me.LBLversion.Text = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Revision
		
	End Sub
End Class